Hệ thống quản lý bán hàng và hàng tồn kho trong c#

37.011 lượt xem;

frmSplash.vb
project /

1 Imports System.Data.SqlClient
2 Public Class frmSplash
3
4     Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
5         Try
6             con = New SqlConnection(cs)
7             con.Open()
8             Dim ct As String = "select * from Registration"
9             cmd = New SqlCommand(ct)
10             cmd.Connection = con
11             rdr = cmd.ExecuteReader()
12             If rdr.Read() Then
13                 ProgressBar1.Visible = True
14                 ProgressBar1.Value = ProgressBar1.Value + 2
15                 If (ProgressBar1.Value = 10) Then
16                     Label1.Text = "Reading modules.."
17                 ElseIf (ProgressBar1.Value = 20) Then
18                     Label1.Text = "Turning on modules."
19                 ElseIf (ProgressBar1.Value = 40) Then
20                     Label1.Text = "Starting modules.."
21                 ElseIf (ProgressBar1.Value = 60) Then
22                     Label1.Text = "Loading modules.."
23                 ElseIf (ProgressBar1.Value = 80) Then
24                     Label1.Text = "Done Loading modules.."
25                 ElseIf (ProgressBar1.Value = 100) Then
26                     Me.Hide()
27                     frmLogin.Show()
28                     Timer1.Enabled = False
29                 End If
30                 Else
31                     ProgressBar1.Visible = True
32                     ProgressBar1.Value = ProgressBar1.Value + 2
33                     If (ProgressBar1.Value = 10) Then
34                         Label1.Text = "Reading modules.."
35                     ElseIf (ProgressBar1.Value = 20) Then
36                         Label1.Text = "Turning on modules."
37                     ElseIf (ProgressBar1.Value = 40) Then
38                         Label1.Text = "Starting modules.."
39                     ElseIf (ProgressBar1.Value = 60) Then
40                         Label1.Text = "Loading modules.."
41                     ElseIf (ProgressBar1.Value = 80) Then
42                         Label1.Text = "Done Loading modules.."
43                     ElseIf (ProgressBar1.Value = 100) Then
44                         Me.Hide()
45                     frmRegistration1.Show()
46                     Timer1.Enabled = False
47                 End If
48                     End If
49         Catch ex As Exception
50             MsgBox(ex.Message, MsgBoxStyle.Critical, "Error!")
51         End Try
52     End Sub
53
54     Private Sub frmSplash1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
55
56     End Sub
57 End Class